var i : Integer;
for i:=1 to 10 do 
   for i:=1 to 10 do ;